Option Explicit
Sub C_Sample033()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)					'Nu@
    On Error Resume Next
    Worksheets(1).Name = "NewName"			']wW
    On Error GoTo 0
    Set mySht = Nothing						'
End Sub
